home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p2.lha / ImEngV3.41p2 / Extra / ADPro / ADPro_Import.rexx < prev    next >
OS/2 REXX Batch file  |  1997-01-09  |  2KB  |  78 lines
  1. /*
  2. ** $VER: ADPro_Import 1.11 (9/1 1997 Stockholm/Sweden)
  3. **
  4. ** Copyright © 1997 by Patrik M Nydensten
  5. **
  6. ** This arexx script will import the current 24bit image data in
  7. ** ADPro to ImageEngineer. Both programs must be running at
  8. ** the same time.
  9. ** This script requires ADPro v2.5.0 (or higher)
  10. ** and ImageEngineer 3.0 (or higher).
  11. **
  12. */
  13.  
  14. OPTIONS RESULTS
  15. SIGNAL ON ERROR
  16. TEMP_FILE = 't:Image_from_ADPro'
  17.  
  18. /* Main code */
  19.  
  20. IF ~SHOW(PORTS,'ADPro') THEN DO
  21.      'REQUEST' '"Could not locate ADPro'x2c(27)'s arexx port!"' '" OK "'
  22.     CALL ErrorOut 10
  23. END
  24.  
  25. ADDRESS "ADPro"
  26.  
  27. CALL "FREDSCRIPTS:FREDFunctions/CheckForRawImageData" TRUE
  28. IF (RESULT ~= 0) THEN    DO
  29.      ADDRESS 'IMAGEENGINEER'
  30.      'REQUEST' '"No image data loaded in ADPro!"' '" OK "'
  31.   CALL ErrorOut 10
  32. END
  33.  
  34. SAVER "IFF" TEMP_FILE "RAW"
  35. IF (RC ~= 0) THEN DO
  36.   ADDRESS 'IMAGEENGINEER'
  37.      'REQUEST' '"Failed to save image from ADPro!"' '" OK "'
  38.     CALL ErrorOut 10
  39. END
  40.  
  41. ADDRESS 'IMAGEENGINEER'
  42.  
  43. 'OPEN' TEMP_FILE 'COLOUR'
  44. IF (RC ~= 0) THEN DO
  45.      'REQUEST' '"Failed to load image into IE!"' '" OK "'
  46.     CALL ErrorOut 10
  47. END
  48. NEW_IMAGE = RESULT
  49.  
  50. CALL ErrorOut 0
  51.  
  52. /* Errorout procedure */
  53.  
  54. ErrorOut:
  55.     PARSE ARG ExitCode
  56.  
  57.     IF (EXISTS( TEMP_FILE )) THEN DO
  58.       ADDRESS COMMAND "Delete >NIL:" TEMP_FILE
  59.   END
  60.   
  61.     EXIT ExitCode
  62.  
  63. /* IE's error procedure */
  64.  
  65. Error:
  66. if RC=5 then do            /* Did the user just cancel us? */
  67.     IE_TO_FRONT
  68.     LAST_ERROR
  69.     'REQUEST "'||RESULT||'"'
  70.     exit
  71. end
  72. else do
  73.     IE_TO_FRONT
  74.     LAST_ERROR
  75.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  76.     exit
  77. end
  78.